home *** CD-ROM | disk | FTP | other *** search
- object FolderDialogForm: TFolderDialogForm
- Left = 376
- Top = 163
- ActiveControl = dTree
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Select Directory'
- ClientHeight = 345
- ClientWidth = 317
- Color = clBtnFace
- Constraints.MinHeight = 300
- Constraints.MinWidth = 300
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- DesignSize = (
- 317
- 345)
- PixelsPerInch = 96
- TextHeight = 13
- object lTitle: TLabel
- Left = 8
- Top = 8
- Width = 299
- Height = 33
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- WordWrap = True
- end
- object bNew: TButton
- Left = 8
- Top = 313
- Width = 99
- Height = 25
- Anchors = [akLeft, akRight, akBottom]
- TabOrder = 1
- OnClick = bNewClick
- end
- object dTree: TShellTreeView
- Left = 8
- Top = 80
- Width = 298
- Height = 220
- ObjectTypes = [otFolders]
- Root = 'rfDesktop'
- UseShellImages = True
- Anchors = [akLeft, akTop, akRight, akBottom]
- AutoRefresh = False
- Indent = 19
- ParentColor = False
- RightClickSelect = True
- ShowRoot = False
- TabOrder = 0
- OnChange = dTreeChange
- end
- object bOK: TButton
- Left = 130
- Top = 313
- Width = 85
- Height = 25
- Anchors = [akLeft, akRight, akBottom]
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- end
- object bCancel: TButton
- Left = 226
- Top = 313
- Width = 83
- Height = 25
- Anchors = [akLeft, akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object eDir: TEdit
- Left = 8
- Top = 48
- Width = 299
- Height = 19
- Anchors = [akLeft, akTop, akRight]
- Ctl3D = False
- ParentCtl3D = False
- TabOrder = 4
- OnChange = eDirChange
- end
- end
-